L10 
W65 
 
ULogo Demonstration Program #2 - The Beginnings of a MenuU 
 
September 21, 1989 
 
by R.H. Mitchell
 
 
TO TITLE 
SETCURSOR [3 2] PR [RON MITCHELL'S LOGO DEMO] 
PR [] 
SETCURSOR [11 4] PR [PART I] 
END 
 
TO START 
CS 
HOME 
HT 
PU 
SETBG 14 
SETPC 1 
SETPOS [-110 90] 
PD RT 90 FD 220 
RT 90 FD 50 RT 90 FD 220 RT 90 FD 50 
PU 
END 
 
TO PROGRAM 
START 
TITLE 
DRAWSQUARES 
MENU 
FINISH 
END 
 
TO DRAWSQUARES 
HOME 
MAKE "COLOR 9 
PU SETPOS [-110 30] SQUARE :COLOR 
HOME 
MAKE "COLOR 8 
PU SETPOS [10 30] SQUARE :COLOR 
END 
 
TO MENU 
MAKE "COL1 12 
PENUP HOME SETPOS [-110 25] 
SUBSQUARE :COL1 
MAKE "COL1 10 
PENUP HOME SETPOS [-110 17] 
SUBSQUARE :COL1 
MAKE "COL1 8 
PENUP HOME SETPOS [-110 9] 
SUBSQUARE :COL1 
MAKE "COL1 9 
PENUP HOME SETPOS [-110 1] 
SUBSQUARE :COL1 
MAKE "COL1 7 
PENUP HOME SETPOS [-110 -7] 
SUBSQUARE :COL1 
MAKE "COL1 2 
PENUP HOME SETPOS [-110 -15] SUBSQUARE :COL1 
MAKE "COL1 5 
PENUP HOME SETPOS [-110 -23] SUBSQUARE :COL1 
MAKE "COL1 11 
PENUP HOME SETPOS [10 25] 
SUBSQUARE :COL1 
MAKE "COL1 4 
PENUP HOME SETPOS [10 17] 
SUBSQUARE :COL1 
END 
 
TO FINISH 
CHANGE.COLOR 15 1 
SETCURSOR [1 23] 
PENUP 
SETPOS [-108 28] PENDOWN SETPC 4 FILL PENUP 
HOME 
SETCURSOR [3 9] PR [CONCEPTS] 
SETCURSOR [3 10] PR [VARIABLES] 
SETCURSOR [3 11] PR [COLOURS] 
SETPOS [109 89] PENDOWN SETPC 13 FILL PENUP 
SETCURSOR [1 23] 
PENUP SETPOS [12 28] PENDOWN SETPC 12 FILL PENUP 
END 
 
TO SQUARE :COLOR 
PD RT 90 FD 100 RT 90 FD 100 RT 90 FD 100 RT 90 FD 100 
PU 
END 
 
TO SUBSQUARE :COLR1 
PENUP 
SETPC :COLR1 
RIGHT 90 FORWARD 10 PENDOWN 
FORWARD 79 RIGHT 90 FORWARD 8 RIGHT 90 FORWARD 79 RIGHT 90 FORWARD 8 
PENUP 
RIGHT 135 FORWARD 2 PENDOWN FILL 
END 
 
KE "COL1 10 
PENUP HOME SETPOS [-110 17] 
SUBSQUARE :COL1 
MAKE "COL1 8 
PENUP 
